home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / public.m2i < prev    next >
Text File  |  1997-11-18  |  983b  |  35 lines
  1. /*
  2.  Public (ScreenName, M2IDrawer)
  3.  
  4.  Open a drawer in a public screen,
  5.  or close it.
  6. */
  7.  
  8. PARSE ARG Screen Drawer
  9.  
  10. Drawer=STRIP(Drawer,B)
  11.  
  12. OPTIONS RESULTS
  13. ADDRESS "M2IPort.Rexx"
  14.  
  15. GETPUBLIC Screen                       /* Public Screen exists? */
  16. IF RC=0 THEN DO
  17.  PUBLICDRW Drawer                      /* Already opened on this screen? Then close it. */
  18.  IF RESULT~=Screen THEN DO
  19.     GET WINDOW Drawer                  /* Opened? */
  20.     IF RESULT=1 THEN CLOSEDRW Drawer   /* Then close */
  21.     OPENDRWPUB Screen Drawer           /* Open in a public screen */
  22.     IF RC=0 THEN SETDEFPUB Screen      /* The screen is the default public screen */
  23.     IF RC=0 THEN PUBTOFRONT Screen     /* Screen to front */
  24.  END
  25.  ELSE DO
  26.     GET WINDOW Drawer                  /* Opened? */
  27.     IF RESULT=1 THEN CLOSEDRW Drawer   /* Then close */
  28.     OPENDRW Drawer                     /* Open in Workbench */
  29.     IF RC=0 THEN SETDEFPUB "Workbench"
  30.     IF RC=0 THEN PUBTOFRONT "Workbench"
  31.  END
  32. END
  33.  
  34. EXIT
  35.